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-Awojgas*n, 05 (b) wrasse* 
[0052] nm\z\t, a*3-H^y^^D-fe?/*i 



(8) #§B¥6-2 1 4 6 0 0 

y\s—&<D&m*mm i k^t, d ma, 

riSHj SftfeiBSWrffll -d (i) ^©#!RE*§£1/ 

ffttbttl*. Lt#oT, SWi-d (i) 

« i - d ( i ) fc8*ft**t-«*«HffiWWjWton 

i&giCJ&UT. 8W?7l/-A*fcli»?7l/ 

[0 0 5 3] Sfc-h7^yDt7tl 5 offimm 
V?y U~2*£&V7yU~J±<D-7£&&£\Zi$\,*T& 

®nM»M?Mnn{tmm\z&\,>T&m*mwm->y 
bmmmn&&fe~tz>&m£isTmm?z>tzzb\z, mm 
misyh7u±;yy2oo^mmtstiz>. mmm^yh 

^(D^izx^^m&z^r^m^-^y^m 

20 [0054] &mm^mm<Dmmm^-v^y^<DR 

saw*:/? i/-a Aojwn?mtmiiticftift 

[0 0 5 5] WrWW^7h^P-fey» 
»IBfr>7h^Dt5r*2 0 0& K*J*m**WMb 

(OTcWZ, Wr Kitty 7 0 Ott* *i\ IS 

40 ±BSMS«lC<fcftfcL RBiy7h^nty*2 0 0 

«-9x*;M?*WT4b. ^Mtt'>7h^D-fe>yiJ-2 0 0 

-fe^-y-i 5 oiccko^ss^n^) mfo^-^yzm® 
mm^v v twfrt*. z<Dttm*ftK>tizz.t\z 

5^ ©t^>b*»e$ns^ ^©Bt)»t^>h 
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[0056] mi \z7jkznx^z>£o\z, mmt&^yb 

stf^x (i) ta^n, f9F^afi»s»7«mF 
mtrnzmmt^mmw^y bm^a±y^-nm^m 

iC> ^^M^7h7 r Dir!yit2 0 0^ 7u±y*}2\ 
0, I«Sg«^ ; EU 2 2 0, 2 3 0*5£tf2 4 0. :/ 
D-fcylJ-2 1 0©yDy7A§»«T5fc»i*aRO 
M2 5 0> £J:tA ^Dt7t2 1O0eMfeit^ 
MIRAM2 6 Ort^Jk*. 
[0 0 5 7] &#|SJtth>7 0 0 Oftfp*. 

*^e^fc»-r«>»mi»->7 h:/oi?^2 o ooim£ 

[0 0 5 8] H7IC^nTl^<t3tC, ^fP^ttv^h 
^n-tr^^2 0 0ttv ®Jto-K:/^:/n~fe-/+M 5 

o^6W^$n/iai&3-Hy^^aibtfffi^t>T> 

U-2±£XV7yU-2±<D-femft£<D*^&?<tirz: 

^OB*lS^y77H yn-fe:-/U-2 10tc 
£*«ffl<Z>£** RAM2 6 0^D-F$n§. 

2mmmmt<Dm*&»&2nz&&i)'7yi'-is<Dm 

IS&TFiTtztbs 7n±yV2 1 0IC£DffJ£2*. RA 
M2 6 0lCffi1g£ftS. ±MV?y AO^subfra 
me-l«> — y^U (fl)*-^ ROM2 5 0) 

rtlC«^^n^>o 7u±yV2 1 0 OfeOl^fcX^lr* 
T, CT»y7hSi> Stttx (i) W>^dpm 

SM§x (i) (0-«tt, jg®l21SSM2 3 OKA* 
3*U RAM2 6 OrtllEtft^n^ ^Dt7^2 1 0 

h) *&£>?m acc-shift£ (RAM2 6 0^9lC) 
"T*. fiMMtKckD, _hf2tt&te, dpm=dpl^ 
I/, acc-shi f t= 0 £^tr J: 3 K^IE^n*, 
[0 0 5 9] ;L©lfi©*ft#^AS*l*£. RfWtt^ 
7hyPt^2 0 0H S>&n-K^ry^ffl861f«lc 

[0 0 6 0] H8*cfctfB9ll B6i:^nt^Dt 
yV2 1 0<DW)ft*^-?yn-^ir-h*7K-?. 081: 



(9) *$M¥6-2 1 4 6 0 0 

cfcftif, ynt7it2 1 0(cj:Dff^n^S?acD^X^ 

mmmzsyhmm^ fcttx (i) ^^^71/ 

*d pmK:«fc?)^A&*ia. I^^7l/-AW»S 

m^^yu-J^^>^d p 1 trnfey-^yu- 

Agsubfraine-l<h(9ft£J;D:^£n£« d pm<d p 1 
+ subframe-l<7)^^Ji, mmMzsy h£fSH£ffi*T£ 

^x (i) w^;*>hrt(DS*x*;y*-£ft£-r 

[0061] »*an±3tr*«»3s*^fi*cD-fey 

»S*J*ffl»Bl*#-f >^dpm' tt, g>MW>*d 
pmd:, Stftx (i) :fe£tfx (i) B©S«y7ht 
cDSlchLT^^n, dpm' =dpm+ ace-shift^ 
KZ> Uf^^3 1 0#$D o OUT, offse 

2 0W . 

[0 0 6 2] OV^T> M^x (i) CD-k^^>KrtcDS 
*X*Mfifi^ft)l$ns Ur^y3 2 5#R8) . 

S±SS*5<Bfi««. x*;P^JWHfc«fflan*JK38 

^>o (i + l) #B<og*ffi«{c^^sx^;^t>H- 
+ 1) #@<z>&#£^fr£5l;:. ^*HH^, ^r^WJc 

«*ffi«OX*;U*t>H-*j56T«je3na. SHrJSn 
cD^*<7)x^;k^«, iSiS©a*S*»ox*;i/=f-* 

ft^zsy hSg*M^M + grt'\y7 h8r£#£>X 
50 I^J^^^fft^g*eili #-f>* location^ 
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[0 0 6 3] l^Sig^x (i) £>-fe^>htfir^;* 

1 014. ZL<Dm±^*)l3rm*&9cV> 

£ (Lfe^T, Jft*H4j*tattftVi) 0 ^n«, loca 
tiontfd pm' \Zttj^%fr&fr*&fetZ>^t\Z&*) 
fr^tl* Ut7^3 3 0W . 
[0 0 6 4] location^d pm' IC$fc?Tt~£ <h£l4, ffi 

0>»&, «*Snfc-fe^>M4* offset 

= locatioo-hO. 7 5SMfi ttfy^3 3 5M) £ 

LT»)isn5«*^&»*o, o. smmmftfttic? 

3IMffiS4, IIt**»i4 0fcil), 
1/-AM (FBd ) O»*0^{cS^^iiMfiibT# 

-asii»ST6n<&©"c> frbv^offs 
et0nm\z&r) % mmtmjj^ (o. 75m) 

O-fe 47* > h rtTCDg*X*;l^#^£ Jltttt 20 

g*x*;v*£*rr &f*#fiB*4* w^3 2 5 lew 
KB) c 

[0 0 6 5] location^d pm' icftf? bai> £^14, 
[0 0 6 6] Xf7^3 2 5^cttXf7^3 4 51:^ 
fttftot, dpm' +mmm±?)M\ZisLm?Z>Vy : 3 L 30 

fc»*itj:o. fctuanr^ai* uf^3 5 0) . 

fiWdpm' +iBE«fcjfefrr*iStt, *ttP©»Wi 
14, Xt7^3 8 Ofcfll-K. Xf7^3 5 0**EC»I6* 

£ftofc£fi£Tftl& Z<D±tf*>hU, offset = lo 
catioD-1- 2 Sii^fil Ur7^3 5 SpM) 40 

3 6 o#g» «fc5fc«W£sn*. **x*;p*«t«tt- 

fcfcU ^WfirB<DS*#-f location 2tC|Btt 

Stl* ttfy^3 6 5#BB) • 
[0 0 6 7] ^*X*;i^&B (locatioo 2) rt*d p 
m' £0&©i>:£l4, location 214, dpm' <fcD&© 
fifflOhf^^/^^Offifa&WWL, locations loca 
tion 2tc^L<a5J:5irlS;3£2*l* ttfy^3 7 0 
££1/3 7 5#ffi) . fltoSu «*X*;M?ffiB**d p 50 



®gB¥6- 2 1 4 6 0 0 

J* 

m' <D&Vfc\t*t&\Z* location 2*4, dpm' <£0|g 
©S«j©tfy^/1;VXT^:<> locations Xfy^3 

2 5*&tt3 4 5^^TWST6nfcfifc»5e$tlfe 

(£©£5attRK:&tvCI;L #-f>^T& 
*locationt4, Xf^^3 6 5T©»0MCJ:D±»*S 

nav>. 

[0 0 6 8] ^OWT, JK»IS«*l©-fey*>hrt© 
Ml^n^o ^SI4, ^©ttBS^tMiraHIB^GHz 

h5©W >5M4> ft£Sft&IocatIon£-&tT±Eizy 
;*>h©S&£D (sfstart) (sfend) ifctftTT 

^ffit&it *t» cfc 5 enHHreeini 
cratot, 5/7H «ii©-»tutjEisn 

[0 0 6 9] £lT> -fe^>h#-f>^ 

1 0KJ;9^£tl5c >3>sfstart 
14, dpm' fc*L<a*J:5K:Rj£Sn*©T, g# 
ftfii. dpm+ acc-shofttC*tt&t~5 Ufy^3 8 

0#JH) o sfstart©::©fil4, x (I) tO^a^St 

#x (i) tow©auioaav7Mc»*"r*. -ra^ 

^, dpm' (=sfstart) 3^^Jft*<5, x (i) ©— 

[0 07 0] #-f>^sfendl4. location+extraKRJt 
$n^„ extrafifcfc, ^t»J (flIAtf, ROM2 5 0) 

©Ks^/tfrx crat>-&, **x*;i^) Rne© 

««C*-6^t©a^«t3»CflMESn^ Uf-^3 8 0 
#R8) » 

[0 0 7 1] >^sfend©«IS^ffill4, -*^©tt« 
©TT, llt^n^o sfcnd©«l»«p«*^ JS^H 

14, 2^-f>^sfend^4* dpi' +subframe-l+ extra 
(tzfzL. subframe-U4, ±3St^i3iD, BS5B*3- 

3 9 0»JH) . 

[0072] nMsnfcify^/^x (*rat>%, ^x 

£££14, sfend©ffi!4, ±# 

^^n^^o ;L©£5a#iH©TT*4, -fe^^>hJ4, 

«h*»JgT$na Ufy^3 9 5««ktf4 0 0#M) • !1 
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[0 0 7 3] C<DVZ&^ mitStlTzVy^/WZ 
Ut>*>, g*X*;l^) (D&W\t, sfstartT*&£D> s 

\z. tfcs^n* Ur7y4 0 5#i) . mizntzv 

fix (i) \t. acc-shift££3gT<&C£fc<, x 
(i) <0»^K««ffi{CcfcD^^n^g*T#^L^^ 

1 0-4 7 5#K0 o 

[0 0 7 4] asij^nfctr^^^x (-r&frt^ £x 

\*?yi?nnbmn<DLM (dpm^^D, dpm 
(sistaTi&£Zfslen6\Z£K)&mt>ntz±lf*>h\zm 

[ 0 0 7 5] x (i) 0±S5Lfiir^;* > hfcL x 
(i) 0^A^n^L^ir^^>h^(JLl^x (i) (DL 
fkmzm-S-fzmmiZZ-oT, sfstarttsfendilCcfcD 
KiZJ^nfcx (i) (^>ir^^>h(o±f2L®(Og*^^ 
sis\aT\£siendtlzmLTi/y hZftfc 

mmomrn Uf^^ i o#rb) ts*fLt^g 

kTsrrv^A 1 5 #88) o x (O OLgir^/;* 

ZTztiXDx (i) ©Lfi-fe^>h©a«tt, mio\z 
[0 0 7 6] ^y^3 10-4 0 0 ICMIR 

Lx±mvrcmK>\z^m^tircmmm^pmn^ <o 

©*^*>h<D— WS^ST. ±if*>h\t, g#sfstar 
t*^»*D» g!*sfendT*l£e Vy^/VWt, gl# 
locationlC^fiT^* g^Iocation iS^sfend^:C7) 
&m\t. extrafc*UV>. ±^LfcSD. #-f>^sfsta 
rtt^-r >2siend£\Zj:y)&Wt>nrz±tf* > hftfc 
A3x (i) ^7 H~;ttJ&-f £«, x (i) 

HTtU£, h^rir^^>h^ ststart + sbif 1 

t»JD, sfeod + sbif tTft^. BlOKjj^nTH 



1$W6-2 1 4 6 0 0 

[0 0 7 7] Lfc^oL tfJxtf, -c^pJigv^hfi 
te, sbift = - limit£fc£o £<Di&&* ZV&vfczsy 
hTSi^n^x (i) ©Lgt^>Ml ftg sfs 
tart-limitTjftSD* ft® sfend- 1 imi tT&£o H« 
<©pJIBv7 Hitt, shifi = + limit^:/cC^ 
£ ^cfc^tev? hT£8£ttfcx (i) OL 

Sir^>M;l* ttS sfstart + IimitT&i: ffiH 
sfend+limitTJ&So ±SBLfciI9, + liiaitte, 
y7 hS5B£lg$rr£o UJtoL ssteptf);*ci§r£<7) 

•>7hits cra*-^ y7m» m^nn 

tf, shifts, |©B (-linjil^shift^ + liniit) ftCDffi 

0. SflKKJg^n?*. /J^T^^n^v^ hx>£ 

3„ ISig^x (i) <Dm&ffi<D2 Xlinit/sstep-fe 
^>MS> ^©*S^8$n3S. £T#± limit 

[0 0 7 8] limitd:cxtra©«»-*ffitt, ^X^Atti^ 
Kj^S-r&o 00^.^ extra^/h$<^:^){ConT> «F 
^ftllilJ, /h$<ft£. Lx)^L. shiftx>tx (i) 

<u^\z-Dtixm<y3i^o t&m*$iCfc^£v\z&m~r 

Z><D&m*}Z>rz*b* ]initoa«« extra^ffli:D/J^< 

[0079] ±tE<om^mw^nrz. x (i) <d±ibl 

7#flR) . 4§S*B8tt. sstep(^L,^v^Mi^j*T 
fft>n^> (ssiepx>«#«Ea«t*LVit*tt, x (i) 

45.fctfiijtfx (i) <D±T<o±v*yv\z^x>&mu 
*«s««-r*&», oj#x <i) <oa#, 

mm\t. ssieptzimmmzmTzntzttMttmmm& 

Ji©tt©*aifc«ffl$nax (i) <Z>L^ir^^>htc 

[0080] «s«B«tai-&x>ttt)E$n<5t, 
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#oT, R#£3tSftll) \Z, ±to+9Mt*<Dm#i' 

i^ftu^Ifil (loc-max) <h#tfe£2n£o 
§:*«&B 1 oc-max#±fB 3 B<D«I^ £ & Z> «ffl<Z># 

[oo8i] &&m&&±cz>mnmmm'y m 

^fflTtlfcf, shifts shift = shift + sstep*Ioc-max 

fe#x o) &&ffimmLtcrtMfaz>'y hzi*z> 

^fg*fx (i) ty7h*am *f*x (1) t<D 
mo&Wsy acc-shift=acc-shift + sbift£: L 

[0 0 8 3] Bav^hOTEWSnSfc, ->!7MH8* 
ffi^x (J) \$. acc-shift£\ shift S 

nmmn<o±!f * > h(D®.m\z&>szi*:z>tz$>\z. 30 

^y7h$n^. MA£B*1ltt. Kfi*«*«r«fc* 

Mic, ^mt x7hiSS^ fcttx (i) <h~>:7* 

M0 s £<£>!M 
i(0 r x(0 

[0089] igttx (i) *5£tfiiJttx (i) 4? 

fcS&te, 0j#x (i) IcffcU&n* yaty*2 0 0 

[0 0 9 0] StfHl fc#IfWJ»*±5^ 
(i) tiiJBn-Hyy^JtfifllA (i) -OjWx 
(i) ttt, tfiESnfeBB^ ffltftx (i) 
«A (i) -Uittx (i) SSSKlBlttl 6 0fctttt2 

7 0lc«&2n£®&^{§-^7 (i) 
[0 0 9 1] 3— Fr/viMftWr/o-fey-U-l 7 Ott, H 50 



(12) »HI¥6-2 1 4 6 0 0 
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RB) • 

[0 0 8 4] «»©stn», »*y7h««n;:t 

[0 0 8 5] Ififn©*^!:^ dpmll }S#x 
ty^4 9 0#!H) o 

[0 0 8 6] H8*«fctfH9JC*SnTV^J:3lC, d 

pm^jERsn^t* f»m<omn\t. xf7>^3 0 5i: 

£<mc, ano«»tfjB«*s*&*jrr*, annuls** 
^n^ctpic. nr/, sum** 08^r;i9n^$n 

TcTs^y^S 1 0-4 9 0lC^2ft*:i§@£*£5o Xf 
1 0-4 9 0it Xt7^3 0 5©*fh&**l3ft 

y^*?7P-AO»KT, *JkHU jBATlH^i*^ 

tJW>^^ MSr£*i (Xf7^5 0 0#I) , 

[0 0 8 7] Sttfx (i) 3WKiS/7h7 r Dt^*2 
OOJC^Oft^^n^i:. SqMbBftA (i) W^D-fc 

i otcjzo, aTo>a9*)fesn*. 

[0 0 8 8] 
[»1 3] 

(13) 

Rm (i) fc«kDS*Wbanfc^T©H3£**3-H^ 

(i) 05^> ^^n^s/h2*$n» 
«a*«wsn&*WcT> s^ss^Jcr (i) ics-s-r 

¥fl:$*l^:@3E3— Y^v9^ Y)Vu (i) zmin 

(i) -aj^tx (i) ic^^n^^^iCct d> 

»^W^m^O^^Ji^fi> UJ#x (i) C 
OAAtt£a* UJttx (i) *S3-H^y^^n 

[0 0 9 2] »to- 
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mm) ic-to. si^ftM^iuteisns 
-rM^©j££*rr*. ^^©sus^fe/mct o (ra 

i@ta. %mmnmmmm^ 1 4 0 ict Dfrtont 

[0 0 9 3] -y-^7W-Att-r^c< 7V-AfttCjgiSrj 

[0 0 9 4] 09IC*^tXfcXx-y^4 7 5ICS^LT 
±j$Lfc<k5fc, acc-shiftte. HCH+fx (i) ,fc->7 
hi&fi*t. i&ttx (i) t©K©KfraWS«->7h&g 

iiM<6#£5tS§ 1 4 0 «. P^IC^TMWfUMt 
£H&L5S. ii®ffl*^Hl 4 OtCiO^^n^C 
©BWtc^Lfci@Si§g(a. 01 2lcM3LTtftfl-r 

[0 0 9 5] 012IJ. tt&A, B^itfC^^r-T** 

(g«aitK«s:*-r. - ©««©«&«. srtcit^-rs* 

mM&&W5±-tZ,tctb\z. M©WI?®l;:*rr-5i8&S£ 
S^T. ttS8Ffl©>I&}4. Wf||y7hyDt^2 0 
0lc<k0tt*S$n* acc-shiftcDfilcS-^<. 
&A©l$t4. ggt«il«mn (k) ^ftjTT •&©!::&# 
£*l3»M<iM (FBd+1 ) ti. «|gB 
©££«. 84*14. M (FBn+1 ) 2rKT©a0^f 
£. 
[0 0 9 6] 

mi 4] 

[0097] »5CK S29j©fc(«e>. ]#*i^mir 

^U^. ttJ8C©t€rii. t8t*ii, M (FBn+1 ) *&L 

[0 0 9 8] 
Hftl 5] 

[0099] sjfljtfsg (a, BS&iic) e>n-s 

*r^tt$tK«(4. acc-shift©te©b^ 

±KA6©tt98'\©jI##£i;£>. Mtfttf (JIM 

fi«t£§8l 4 0©|»BJ(Dfcse)©?0«i«SgT*-5) ttSgA 
iCfcO. - 3ms< acc-shift<3msT*-5i«^-r 
*lfi. WtWt, WSgAWSSTabO. M (FBd+1 ) 
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f4. ttlE^tl&lA, acc-shift©l@a*3ms<fc ^ 
««t4. #S8C\jI#U M (FBd+1 ) \t, 

acc-shi f t \z <t 0 t\rz#mm&&m®? •& ©£i»tt 

^fcJ6. l^*^Kfc^Jill0^ns. #8&A©£ 
fNC. acc-sbift*<- 3m s±D/h£< testate. & 
**tt. #&B^3&U M (FBd+1 ) tt, #|i?8H£Sr 
*SI&-r£©£S&tt-5*:ii&, lg*i«^>Sn^. c:©ii) 
f^tt. ^B*5<trXCIC^^T'b^«T?*-2). 

[0100] ^©^01 

0 1 \zw;-znrzmmmz*i-rzmi]Q<DmmM&® 1 1 k 
*£*ro>-5. zommmz^ti^ stiui^£t£iS6 

1 Oli. MTjimj^jzm^x (i) £gA*l. &§c 
©KJR«#. &ttx (i) ££/£-rs„ HJHI+f£fSg§ 
6 1011 01, 6, 8i$£Zf9IZ7jk-£tltzb<OtmM 

m->y h^n-fe-y+l-ia. StUM+ftjg^n-H^^^M 
S6^t©ffiH^ff*5/&^. c©^W«->7 

h^D-t-^+tH. ff^Ifx (1) ©»»|Hl©->7h 

ic»^^r«»e©Lgisism+f£«ief^©*-T* 
•5. 01 oicpslt±^l^j;'5ic, z\nt>o>&mm 

S*sfstart^&J6*Dg*sfendTi^SLS-fe^ 
jOHcW^LT. ±limit©«5HtCS^T>'7 h1§^ 
Ssstep©->7 hlcfcOifc^^nfc. MM^©L6ir^ 
^>hT&-5. U®g^J^|§6 1 Ote. Jg^g^t 

^MM^t©fflsffiM^fft>^ti©-p, «F^b 
<Dtztb<?)mm®n*m&.Lm\ ummmti&®6 1 0 

^ CT>it)^. -&JS) 8§6 2 OI^LT^fier-5. 

[0101] «F^ig6 2o«. 01 4\z^nrznnm 
&mmM^M<D&?/£®.&M&i$.\z£z>tttiTnn$gfr*> 
nz. cruti?>, mmn. iu#x (i> 

m^©fne (1) + A (i) x (1-d ( 1 ) ) tUT 
0 1 4 lC^2nitM^T$>-5 (014 \Z7jk2tltc®&4 

5&m) . nnEhMMmm^mnnvftViyimiz&ruk 
mzntz. (^m^. uwx (o *tM3n« «f 
^bsnfcm^/x?^— m©^ffl©fc*. ram 

#x (i) «. -^^.e»nfcKJlfi^> S#x (i) tcS 
•^<Iifx (i) ©«l)efilT*^.. aViT. '©. n 

©#©«^«t4. *^nm^. iijttx (i) tasfs 

+f. »^x (i) £©gt&g£»jrt-5fcJ&, aMM^ 
tittJSn^. c:©IS(HSa. 2B©M^W©3I CTift 
^M) <g^E (i) £&£-r*^[5]K 6 3 0{C« 

«ssn-5. f&gm+^E (j) a. #Ae.nfcttnm^ic 

$n*t. ajs*g^4i^3g 6 1 0 «. ^-?n<Dumm 
n> «Mx (i) *<sies«©s mx\t, m/bf&m * 
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[0102] mm%-?$>n\i, rigj mmaH 

tt, ^© rjRj rstnj BWtl/T©tt»« 



25 
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^include "macro h" 
/* 

* mod - modify residual 
*/ 

void modf residualm, accshift, d_ 
dpi , dpm, lp c 



float 'residualm; 
float *acc3hifc; 
float *d_shift; 
float shiftr; 
float *exctation; 
float *residual; 
int dpi; 
int *dpra; 
float *lpcw; 
int lpcocde re- 
float delay; 
int subframel; 
int extras- 
long fcnt; 
{ 



.shift, shiftr, exctation, residual, 

Ipcorder, delay, subfrarnel, extra, fcnt) 
output: modified residual signal */ 
/* output; shift from mresidual to residual */ 
/* output: local shift for all samples -/ 
/* input: maximum shift range */ 

input: adaptive codebook excitation */ 
input: original residual */ 
input; pointer to output signals */ 
xn/out: pointer to end of residualm */ 
input: weigted lpc coefficients */ 
input: ipc order •/ 
input: delay */ 
input: subframe length */ 

input: additional exctation constructed */ 



t* 
/• 
/• 
/* 
/* 
/» 
/* 
/* 



void csM ft framed : 
void modi fyo rig ( ) ; 
float shiftr2; 
int sfstart, 5 fend/ 

while< *dpm < dpl+3-abfraxnel) ( 

c»hiCtfra«B( £s£ 8 tarc, Ssfend, & shiftr2, *d P r», residual, dpi, 
accshift ' ah *ftr, delay, subfrarnel. extra, fcnt ) * 

modifyo " 9< r :«d du i lm ' f acc3hi£t ' d - sh " c ' «»• » hi "^: i::iiUo n , 

residual, sf start, 3 f endj ; 
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• include "macro - h M 
/* 

* cshiftf came 
•/ 

void cshifttrame* sfstart, 
maxshift, 

int *sf start; /■ 
int *3fend; /• 
float *maxshift2; /' 
int dpm; / > 

float *residual; /' 
int dpi.- /< 
float accshift; 
float maxshift; /» 
float delay; /* 
int subframel; /< 
int extra; /' 
long font; /* 
I 

void maxelocO ; 
float maxener; 
int offset ; 
int iacshift; 
int length ; 
int loc, loc2; 



find optimal frame shift 



sfend, maxshift2, dpm, residual, dpi, accshift, 

delay, subframel, extra, fcnt) 

output: shift-frame start */ 

oucput: shift-frame ending */ 

output: one-sided shift range V 

output: up to where residua lm exists */ 

input : original residual signal */ 

input : Output signal pointer */ 

input : shift of output versus input */ 

input : maximum shift range */ 

input : local pitch value */ 

input : subframe length */ 

input : additional excitation beyond cucrent frme */ 
input : frame counter (DEBUG) "/ 

/* determine location cf max energy */ 



if ( delay < 0) { 

iacshift = -accshift 4 0.5; 
iacshift =• -iacshift; 

} 

else 

iacshift ~ -accshift + 0.5; 

/* determine first a pitch pulse somewhere near dpm */ 
length = 1.5 * delay; 

offset = dpm + iacshift - 0.25 * delay; 

maxeloc( iloc, Sraaxener, residual, offset, length, 2); 

loc -*= iacshift ; 

printf ("cshif tframe: firstloc %d *\ loc - dpi); 

/* now find the first pitch pulse for sure */ 
if ( loc < dpm) { 

Offset = loc 4 iacshift 4 0.75 * delay + 0.5; 

length = 0.5 * delay; 

maxeloct &loc, &raaxener, residual, offset, length, 2) ; 

loc — ■ iacshift; 

printfC* Aloe %d", loc - dpi); 

if ( loc > dpro+delay) ( 

offset = loc 4 iacshift - 1.25 * delay 4 0.5; 
length = 0.5.* delay ; 

maxeloc( filoc2, firoaxener, residual, offset, length, 2), 

loc2 -= iacshift; 

if ( loc2 >= dpru) loc =» loc2; 

printf (" Bloc %d", loc - dpi) ; 
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*sfstart - dpm; 

* 3 fend = loc ■+ excra; 

"maxshi f 1 2 = maxshifc; 

if( 'sfend > dpi + subfcamel + extra) 

•sfend = dpi + subframel + extra; 
if ( loc >= dpi + subframel + extra/2) 

*sfend - dpi + subframel/ 

if< loc *sfend if loc < -sfstart) 
*maxshift2 » 0; 



printfC loc is: %d\r.*\ loc-dpl) ; 
/* debugging pictures */ 
/* 



{ 



char titlel[100J; 
static float wl{200], 
register int i; 



w2(200) , 
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for< i=0; i<200; i + 4-) vl{il = 0.0; 

wlfloc-dpl-11 =5e.O;wl{loc-dpH-13= 50.0; wl [ loc -dpi] -100; 

for< i-0; i< SUbrramel+extra; w2[i] = residual fdpi + iacshifti-i J ; 

for( t-0; i<*3f3tart-dpl; i + + ) w2[i] = 0.0; 

for( i=**s£end-dpl ; i<subf ramel+ext ra ; i+-r) w2ti] = 0.0; 

sprintf Uitlel, -shiftrange %5.3f'\ *maxshif t2) ; 

pictures3| residual+dpl+iacshif t , subf ramel+ext ra, wl, subf ramel+extra, 
v2, subframeHextra, feat, titlel, "considered", "shifted" J ; 
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8 include "macro. h" 
void maxeloc ( ma k loc 
int *maxloc; 
float "maxener; /* 
float -signal; 
int dp; 
int length; 
int ewl; 
I 

float ene re- 
register int i; 
int tail, front; 



maxener, signal, dp, length, ewl) 

/* output: location of maximum energy */ 
output:: energy at loc */ 

/* input: signal for which energy is to be found*/ 
/» input: data pointer into signal */ 
/* input: window of data */ 
/* input; half length of energy window */ 



ene r - 0.0; 

front - dp + ewl; 

tail - dp - ewl; 

£or( i«=tail,- i<=front; i + + ) 

ener 4— signal [ij * signal [ij; 
*maxloc » dp; 
*maxener — ener; 
for( i-1; i<length; i++) ( 
fronts, 

ener ■+-— signal I front ] 
tail+-K- 

iff *maxener < ener) { 
*maxloc = i" + dp; 
*maxener « ener; 

) 

1 



signal{f ront) - signal (tail) * signal [tail) ; 
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"macro . h" 



S include 
/* 

* modify© rig 
V 

void modifyorig( residua In, accshift, d_shift, dprn 
exctation, residual, dpi, sfend) 



modify original 



shift range. 



/• output: modified residual signal 

/* in/out: accumulated shift */ 

output: local shift value *7 

output; first nonvalid sample of residualm ■/ 

input : one side of shift range */ 

input : excitation waveform */ 

input : original residual signal •/ 

input : window start */ 

/* input : window end */ 



float * residualm; 
float *accshift; 
float *d_shift; 
int *dpm; 
float shiftrango; 
float *ejfctation; 
float * residual ; 
inc dpi; 
int sfend; 
l 

void bl_intrp ( ) ; 
void getcrit () ; 
void testi_ubound() ; 
int k; 

float criterion, best; 
float shifts- 
float optshift; 
float locraax; 

int left limit/ right limit ; 
int length; 
#define MAXDIM 100 

float critCMAXDlM); 
float a, b; 
float sstep; 

length = sfend - dpi,- 

/* first we upsarople by a factor 2 *7 
sstep = 0.5; 

rightlimit » shift range/ sstep + 0.5; 
leftlimit «= -right limit ; 

if ( leftlimit — rightlimit) rightliroit * left limit - 1; 
printf < "modify© rig. llim %d rlim %d", leftlirait, right limit J ; 
testi vibound ( rightlimit*2+l, MAXDIM, "modif yorig .cl ") ; 
far (k-left limit; k<=right limit ; k-++; | 

shift - *accshift + k * sstep,- 
^ getcrit( crit+k~leftlimit, residual+dpl , excta t ion+dpl , shift, length) ; 

/* then we interpolate the criterion ■/ 

best - 0.0; 

optshift = *accshift; 

for <k=le£tlimit+l; k<right limit ; k + + ) { 
shift = *accshift + k * sstep; 

a = critfk-leftliroit+l] + crit Ik-left limit- 1 ) - 2.0 * crit I k-lef t limit J . 
criterion «= -2.0; 
if ( a 1= 0.0> ( 

b - crit [k-leftlimit+1] - crit |k-Ief tlimit-1 } ; 

locmax - - b / (2.0 * a > ; 

if ( locmax <= 0.5 && locmax >- -0.5) 
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criterion - a * locmax * locmax + b * locmax * 2.0 * cr it [k-lef t limit J ; 

if< criterion > best J ( 

optshift = shift + sstep * locmax; 
best *= Criterion; 

] 

I 

*acc 5 hift - optshift; 

printff optshift %5.2f best %.4e\n", optshift, best] ; 
if* best<=1.0) 

for (k=leftlimit+l; k<rightlimit; k + + ) 

print f ("k=%d %f\n", k, crit (k-lef tlimit] ) ; 
for< k=0; k<length; k++)( 

bl intxpt residualm+dpl+k, residual+dpl4k, *accshift, 0.9, 8) ; 
d_shift ldpl+k] « *accshift; 

} 

*dpm = dpl+length; 



* * [*7] 
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S include "macro. h" 
/* 

^ bl_intrp - band-limited interpolation 

void bl_intrpf output, input, delay, factor, fij 

float "output; /* output: interpolated output value *f 

float *input; /* input : array to be interpolated */ 

float delay; /* input : delay where actual input is */ 

float factor; /- input : cut-off frequency (relative to fs*/ 

j nt fl; /* input : filter length is 2*fl + l */ 

/* NOTES 

* computes "input" signal value 

+^ at "delay" prior to the array pointer "input" into the "input" array. 

register int n; 
register float t; 
register float *£; 
register float argl, arg3; 
register float denom; 
int offset; 

if ( delay < 0) { 

offset - -delay +0.5; 
offset - -offset; 

} 

else 

offset = delay + 0.5; 
t « offset - delay; 

f - input - offset; /* center sum around f */ 

denom - 2.0 / (2.0 * fl + 1.0}; 

♦output » 0.0; 

for( n« -fl; n<«fl; n++J( 

argl - PI » factor * <t-n) ; 

arg3 - PI * <t-n) ; 

it[ argl <: l.e-2 LI argl > ~l. e -2)/* just copy */ 

♦output +- factor * Mf+n|; 
elae /* sine function multiplied by hamming window */ 

'output +- factor * (0.54 ♦ 0.46 * cos ( arg3 * denom )) - 
Mf+n} * 3 in< acgl> / argl; 

> 
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^testi^ubound - ten if argument a exceeds inc boundary b and print text 
void testi_ubound( a, b, text) 

f"* ff /• input: value to be tested -/ 

" ' ?* input: boundary value */ 

char -text; input : pc<>9ram na:ne v 

if ( a > b) ( 

exit(fo>; n1,8 " f " VdiU<5 exceed5 ran * € * d > %£ ^~< text, a, b> ; 

} 



^testi_bound - test if argument a exceeds range bl,b2 and print text 



void testijsound I a, bl, b2, text) 

]*l *! _ /* input: value to be tested */ 

" 2; '* input: boundary values »/ 

char *text; /. input: pjrogram name wf 

if < a < bl ){ 

exitaoi #Nn%5 "* f " ValUe eXCeeds range ld < %dXn ^ a, bl); 

I 

else if (a > b2 ) {. 
■ exit(10) UlS " f " ValUe .exceeds range %d > %d\n~, text, a, b2) ; 



} 



} 



*^estf_bound - test if argument a exceeds range bl,b2 and print text 
void testf_bound( a, bl, b2, text) 

VxTJt t\ wo '* in P ut: va ^« to be tested */ 

t * * '* in P ut * boundary values V 

char *text; /* inpat: p am nara<5 v 



if { a < bl ) | 

exitaO) Xn%3 f VaiUe eXCeeds range %f < %f \ n "* text, a, bl) 

) 

else if (a > b? m 

exitaO)) nlS " f " VaIUe «^eeds range %f > %£\ n -, text, a, b2) ; 

) 



^testd bound - test if argument a exceeds range bl,b2 and print text 
void testd_bound( a, bl, b2, text! 



double a; 
double bl,b2; 
char *text; 
{ 

if ( a < bl ) I 



/• input: value to be tested •/ 
/* input: boundary values */ 
/* input: program name */ 
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printf ("\nls-f-value exceeds range %f < %f\n", text, a, bl) 
exit < 10) ; 



else if (a > b2 ) { 

printf r\n%s-f-value exceeds range %f > %f\n*\ text, a, b2) 



exit (10) , 
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tinclude "macro. h" 
/* 

* getcrit - compute error between excitation and shifted residual 
*/ 

void getcrit( criterion, residual, exctation, shift, length) 



output : error criterion */ 
input : residual signal */ 
input : reference signal */ 
input : shift */ 
input : vector length */ 



float ^criterion; /* 
float * residual; /* 
float *exctation; /* 
float shift; /* 
int length; /* 
i 

void bl_intrp{) ; 
float output; 
register int i; 



♦criterion = 0.0; 

for< i-0; i<length; i++) ( 

bl_intrp( toutput, residuaH-i, shift, 0.9, 8), 
♦criterion += output * exctation [ i] ; 

) 



) 
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